home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / data / nyan_e2 / nyane2_d.plp < prev    next >
Text File  |  1993-11-30  |  2KB  |  113 lines
  1. /*******   ROAD1,ROAD2,ROAD3の各タイプに応じて接続処理を行う  v1.04a用 *******/
  2.     %type00 {
  3.     cnt:=0;
  4.     loop({
  5.         case(cnt < 7,
  6.         {Yes},{    cnt:=cnt+1;
  7.             wait(1);
  8.             type({.00+});
  9.             wait(    20    ,{im({Yes})
  10.                 },{46+}    ,{im({Yes})
  11.                 },{+\n00+}    ,{im({Yes})
  12.                 },{Enter}    ,{im({No});
  13.             });
  14.         },{No},{ discon; stop; im({No});
  15.         });
  16.     });
  17.     };
  18.  
  19.     %Road2c {
  20.     cnt:=0;
  21.     loop({
  22.         case(cnt < 7,
  23.         {Yes},{    cnt:=cnt+1;
  24.             type({C NIF\n});
  25.             wait(20,{TimeOut},{*},{im({Yes})},{Connect},{im({No})})
  26.         },{No},{ discon; stop; im({No});
  27.         });
  28.     });
  29.     };
  30.  
  31.     %Road2p {
  32.     wait(4);
  33.     type({@P\n});
  34.     wait(20,{TimeOut},{*});
  35.     Road2c;
  36.     };
  37.  
  38.     %Road3 {
  39.     wait(60,{TimeOut},{*},{type({C NIF\n})});
  40.     };
  41.  
  42.     %callrd11 {[telno]
  43.     %MNPOff    @case(@getchar(modemtype,5,1),
  44.             {m},{im({\N0})},
  45.             {n},{im({}    )});
  46.     display({ROAD1/1200(}|telno|{)に電話をかけます\n});
  47.     baud(1200);
  48.     dialone({AT}|@head(modem,{/})|MNPOff|{D}|
  49.         line|{ }|telno,
  50.         {type00;im({No})},{im({Yes})})
  51.     };
  52.     %callrd12 {[telno]
  53.     display({ROAD1/2400(}|telno|{)に電話をかけます\n});
  54.     baud(maxbaud);
  55.     dialone({AT}|@head(modem,{/})|@body(modem,{/},{/})|{D}|
  56.         line|{ }|telno,
  57.         {type00;im({No})},{im({Yes})})
  58.     };
  59.     %callrd2 {[telno]
  60.     display({ROAD2/2400(}|telno|{)に電話をかけます\n});
  61.     case(maxbaud>4800,
  62.     {Yes}, { baud(4800);
  63.     },{No},{ baud(maxbaud);
  64.     });
  65.     dialone({AT}|@head(modem,{/})|@body(modem,{/},{/})|{D}|
  66.         line|{ }|telno,
  67.         {Road2p;im({No})},{im({Yes})})
  68.     };
  69.  
  70.     %callrd3 {[telno]
  71.     display({ROAD3/9600(}|telno|{)に電話をかけます\n});
  72.     case(maxbaud>9600,
  73.     {Yes}, { baud(9600);
  74.     },{No},{ baud(maxbaud);
  75.     });
  76.     dialone({AT}|@head(modem,{/})|@body(modem,{/},{/})|{D}|
  77.         line|{ }|telno,
  78.         {Road3;im({No})},{im({Yes})})
  79.     };
  80.  
  81.     %callone{[telty,telno]
  82.     case(telty,
  83.         {1200},    {callrd11(telno)},
  84.         {2400},    {callrd12(telno)},
  85.         {2400T},{callrd2(telno)} ,
  86.         {9600}, {callrd3(telno)} ,
  87.                ,{im({Yes})}       )
  88.     };
  89.  
  90.     %callnif{
  91.     var cnt[5];
  92.     %modemname @tail(modem,{/},{-});
  93.     %modemtype @tail(modem,{_});
  94.     %maxbaud @getchar(modemtype,1,4);
  95.     dispecho({No});
  96.     case(@getchar(modemtype,5,1),{m},{dispecho({Yes})});
  97.     case(@getchar(modemname,1,4),
  98.     {内蔵},{port0({in});
  99.     },    ,{port0({out});
  100.     });
  101.  
  102.     loop({
  103.         case(@callone(telty,telno),
  104.         {Yes},{    case(@callone(telty2,telno2),
  105.             {Yes},{callone(telty3,telno3);
  106.             },{No},{im({No})
  107.             });
  108.         },{No},{im({No})
  109.         })
  110.     })
  111.     };
  112. callnif;
  113.